home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 201_300 / disk0299 / memset.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  648 b   |  23 lines
  1. 10  REM this program resets the memory size indication at 40:13 prior to
  2. 20  REM quadmaster2 software access, to enable use of memory above the
  3. 30  REM maximum system board switch settings.
  4. 40  OPEN "meminst.dat" FOR INPUT AS #1: INPUT #1, MEM: CLOSE #1
  5. 50  DEF SEG=64
  6. 51  O1=PEEK(19): O2=PEEK(20)
  7. 52  SWSET=((INP(98) AND 15)+2)*32
  8. 53  MSET=O1+256*O2
  9. 54  IF MSET<>SWSET THEN GOTO 150
  10. 60  M1=MEM MOD 256
  11. 70  M2=INT(MEM/256)
  12. 90  REM poke into memory
  13. 100  POKE 19,M1
  14. 110  POKE 20,M2
  15. 120  REM initialize memory above that initialized by dos
  16. 125  LOCATE 4,1: PRINT "start = ";SWSET;" k; end = ";MEM-1;" k"
  17. 130  FOR I%= SWSET TO MEM-1
  18. 132  LOCATE 10,1:PRINT I%;" k"
  19. 135  DEF SEG=I%*64
  20. 140  FOR J%=0 TO 1023
  21. 143  POKE J%,0: NEXT J%: NEXT I%
  22. 150  SYSTEM
  23.